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Infraput (D»O.I. or SADOl) 

Closed with one program parameter, 

39 

0, 1, 2 

Up to 12 digit integers or fractions. Integers are exact; 

fractions are correctly rounded (error up to +2" )• 

Input time (k ms per digit). This routine has an inner loop 

at 700^ sec, which makes it twice as fast, overall, as earlier 

input routines . 

To read a sequence of fractions into locations n, n+1, „ . » 

enter with Q = 50 n 

50 q 
To read a sequence of integers into locations, rij. .n+1, • . . ♦ 
enter with Q = 52 n 

50 q 
Each number is punched with a sign (+ or* «« followed by up to 
12 decimal digits. Zero may be punched as + alone* A sequence 
is terminated by one of N,J,F,L. When one of these characters 

is encountered, control is transferred to the right hand side 

-39 -39 -39 
of q+1, with A = 0, 2 , 2,2 , 3,2 according as the 

termination was N,J,F,L<, The left hand address of 21L relative 

to the subroutine at this time is n+k if k words have been read 



in to locations n, n+1, 



n+k-1 , 
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Plant link and n 
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46 21L 










01 7F 


~| Plant fraction/integer switch "• 
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I> 18L 




-set 16 ' as 17L if fractions (50 entry) 






42 16L 


a 19L If integers (52 entry) 
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81 4F 
LO 25L 




read sign of first number of the sequence 
-1 + (s-lO)^" 59 
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42 20L 


f-from 23 f 3-eet 20' as or 1 for + or - 






LO 38L 

i 


■ 


If instead of sign digit an N,J,F,L, A has 
0,1,2,3* so obey link. 
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50 26L J 

32 (llnk)F by 0' 


Special vord to Q: let g. be the integer comprising 
(q x ^ q^ %) of 2*** 1 Q Then »fe 1 +24L) « | lO 1 ^' 


39 
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J a table . 
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89 IF 
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22 9L 




Enter digit loop with A = -1 (so n Q = 0) 




10 3F 




F4 F 


I s 
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00 2F 
F4 ¥ 
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n ± = d i -10 + lOU+n^) 
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00 IF 


. > 
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kO F 
11 IF 
80 kF 


& 




— 1 + 2~ 39 njL 
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LO 25L 






-1 + 2" 59 (d 1 -10) 
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36 7L 






loop if d < 10 (digit, not sign) 

T -39 
-store -1 + (s-10)2 (sign of next number) 




kO 2F 






01 4f 


' p« 


g i (Q previously shifted 4+3i places left) 
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L4 l4L 




g + 24L 

1 i -^Q 
set addresses of •* 10 »2 






42 15L 
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42 17L 




- 






50 24L 


J-vsste (address used by 13) 
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89 IF 




-I 
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50 ( )F 
L4 F 


by 13' 

** 


1 -39 

JV 2 






26 (17 or 19 )L by2' 


■J X 

fraction/ integer switch 
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CRDER 


ROTES HttJE 2 


17 


SO F « Fraction 


absolute value of fraction is „ 


18 


66 ( )F 

10 IF 

SJ 961L 


By lk 
(From 16 


2"^ (n ± - 5 10 1 + 2 A0 10 i ) x n 


2 -» (llO 1 ) •?*?.- grounded. 
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40 F 4 Integer 


store positively in 




U F 
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kO IF 




J store negatively in 1 




L5 (0 or 1) by ^ £ 


J-correctly signed answer 
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40 (n)F 


by 1, 22' 


store in sequence, and increase 




L5 21L 




-address of store instruction by 1 
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IA L 








46 21L 




* 
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L5 2F 




1 -1 + (s-10) • 2" 59 




26 4L 


->k 


loop 

1 10 12 


2k 


00 F 
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00 500 000 000 OOOF 


-1 + 10 .2 " 59 


80 F 
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00 10F 


special constant for Q 


01 1229F 
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59 3258F 


during input loop 

I- 5 

s ^ 
| 10 5 

|io? 

| 10 11 

1 8 
1 10 


00 F 


28 

29 

50 

31 
32 
33 
3* 


00 500 F 


00 F 
00 5F 


00 F 

00 50 OOOF 


00 F 
00 50 F 


00 F 

00 5000 OOOF 


00 F 

00 50 000 000 OOOF 


00 F 

00 50 000 000 F 


00 F 

00 5 000 F 
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N12 
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36 

37 
38, 



00 F 

00 500 000 000 F 



00 F 

00 500 OOP F 



00 F 

00 5 000 000 OOOF 



80 F 
00 2F 



I- 9 



i io 6 



\ io 10 



-1 + 2.2 



-39 



